home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf3.lha / Main / Lopetus.Amos / Lopetus.amosSourceCode
AMOS Source Code  |  1993-03-08  |  1KB  |  62 lines
  1. Auto View Off 
  2. Screen Open 5,320,256,2,Lowres : Curs Off : Flash Off : Cls 0
  3. View 
  4.  
  5. Track Load "HF3:Main/LopetusModule",7
  6. Track Play 7
  7.  
  8. Load "HF3:main/LopetusTausta2.abk",20
  9. Unpack 20 To 0
  10. Screen To Front 5
  11. Screen Open 2,20,20,16,Lowres : Flash Off 
  12. Screen Hide 
  13. Get Palette 0
  14. Screen 0
  15. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. Load "HF3:main/LopetusTausta1.abk",20
  17. Unpack 20 To 1
  18. Screen To Front 5
  19. Erase 20
  20. Screen Open 3,20,20,16,Lowres : Flash Off 
  21. Screen Hide 
  22. Get Palette 1
  23. Screen 1
  24. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25. Screen Close 5
  26. Fade 5 To 3
  27. Hide 
  28.  
  29. Auto View On 
  30. AUTOMAATTINENPUHELINVASTAAJA:
  31.    Timer=0
  32.    While Timer<50*3
  33.       If Mouse Key Then Goto IHMINEN
  34.       If Inkey$<>"" Then Goto IHMINEN
  35.       If Fire(1) Then Goto IHMINEN
  36.    Wend 
  37.    Fade 5
  38.    Wait 68
  39.    Screen 0
  40.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  41.    Screen To Front 0
  42.    Fade 5 To 2
  43.  
  44.    Timer=0
  45.    While Timer<50*3
  46.       If Mouse Key Then Goto IHMINEN
  47.       If Inkey$<>"" Then Goto IHMINEN
  48.       If Fire(1) Then Goto IHMINEN
  49.    Wend 
  50.    Fade 5
  51.    Wait 68
  52.    Screen 1
  53.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  54.    Screen To Front 1
  55.    Fade 5 To 3
  56. Goto AUTOMAATTINENPUHELINVASTAAJA
  57.  
  58. IHMINEN:
  59.  
  60. Screen Close 0
  61. Screen Close 1
  62. Erase All